improve comp-c-func-name

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 849b15f4225dfb89fb8753e9609a1797617365a5..116a1c24456741084c63966d438f3ceb3cffa3ba 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -150,7 +150,7 @@ LIMPLE basic block.")
          (human-readable (replace-regexp-in-string
                           "-" "_" orig-name))
          (human-readable (replace-regexp-in-string
-                          (rx (not (any "a-z_"))) "" human-readable)))
+                          (rx (not (any "0-9a-z_"))) "" human-readable)))
     (concat "F" crypted "_" human-readable)))
 
 (defun comp-decrypt-lambda-list (x)